WIDTH 70
CLS
COLOR 2,1
PRINT " --== MaxiDAT-Preferences ==-- "
COLOR 1,0
PRINT
PRINT 
PRINT "Geben Sie bitte den Zugriffspfad zu den Daten ein !"
PRINT "(Default = 'DF0:MaxiDat/Daten/')"
LINE INPUT Pfad$
IF Pfad$ = "" THEN
  Pfad$="DF0:MaxiDat/Daten/"
END IF
IF MID$(Pfad$,1,1) = ":" THEN
  Pfad$="DF"+Pfad$
END IF
IF MID$(Pfad$,4,1) <> ":" THEN
  Pfad$="DF0:"+Pfad$
END IF
IF RIGHT$(Pfad$,1) <> "/" AND RIGHT$(Pfad$,1) <> ":" THEN
  Pfad$=Pfad$+"/"
END IF
LOCATE 6,1
COLOR 2,1
PRINT Pfad$
COLOR 1,0
LW$=LEFT$(Pfad$,4)
Pfad$=MID$(Pfad$,5)
PRINT 
PRINT 
PRINT "Welche Diskettenlaufwerke sollen im 'LAUFWERK WECHSELN'-"
PRINT "Requester erscheinen ?"
PRINT "(Default = 'DF0:' 'DF1:')"
LINE INPUT "1. Drive       : ",Drive1$
IF Drive1$ = "" THEN
  Drive1$="DF0:"
END IF
Drive1$=UCASE$(Drive1$)
IF RIGHT$(Drive1$,1) <> ":" THEN
  Drive1$=Drive1$+":"
END IF
LOCATE 12,18
COLOR 2,1
PRINT Drive1$
COLOR 1,0
LINE INPUT "2. Drive       : ",Drive2$
IF Drive2$ = "" THEN
  Drive2$="DF1:"
END IF
Drive2$=UCASE$(Drive2$)
IF RIGHT$(Drive2$,1) <> ":" THEN
  Drive2$=Drive2$+":"
END IF
LOCATE 13,18
COLOR 2,1
PRINT Drive2$
COLOR 1,0
PRINT 
PRINT 
PRINT "Bitte geben Sie die Bildschirmfarben ein. Jede Farbe besteht"
PRINT "aus drei Werten (für ROT/GRÜN/BLAU-Anteil) zwischen"
PRINT "0 und 1."
LOCATE 19,1
LINE INPUT "    #0 (Hintergrund) [0.8/0.5/0.0] : ",RGB$
GOSUB WerteAuslesen:R(0)=R:G(0)=G:B(0)=B
IF R(0)=-1 OR G(0)=-1 OR B(0)=-1 THEN
  R(0)=0.8:G(0)=0.5:B(0)=0
END IF
TEST R(0):TEST G(0):TEST B(0)
LOCATE 19,42
COLOR 2,1
PRINT R(0);G(0);B(0)
COLOR 1,0
LOCATE 20,1
LINE INPUT "    #1               [0.9/0.9/0.9] : ",RGB$
GOSUB WerteAuslesen:R(1)=R:G(1)=G:B(1)=B
IF R(1)=-1 OR G(1)=-1 OR B(1)=-1 THEN
  R(1)=0.9:G(1)=0.9:B(1)=0.9
END IF
TEST R(1):TEST G(1):TEST B(1)
LOCATE 20,42
COLOR 2,1
PRINT R(1);G(1);B(1)
COLOR 1,0
LOCATE 21,1
LINE INPUT "    #2               [0.0/0.0/0.0] : ",RGB$
GOSUB WerteAuslesen:R(2)=R:G(2)=G:B(2)=B
IF R(2)=-1 OR G(2)=-1 OR B(2)=-1 THEN
  R(2)=0:G(2)=0:B(2)=0
END IF
TEST R(2):TEST G(2):TEST B(2)
LOCATE 21,42
COLOR 2,1
PRINT R(2);G(2);B(2)
COLOR 1,0
LOCATE 22,1
LINE INPUT "    #3               [1.0/1.0/0.1] : ",RGB$
GOSUB WerteAuslesen:R(3)=R:G(3)=G:B(3)=B
IF R(3)=-1 OR G(3)=-1 OR B(3)=-1 THEN
  R(3)=1:G(3)=1:B(3)=0.1
END IF
TEST R(3):TEST G(3):TEST B(3)
LOCATE 22,42
COLOR 2,1
PRINT R(3);G(3);B(3);
COLOR 1,0
SOUND 800,10,255
PRINT :PRINT "Taste drücken ...";
WHILE INKEY$="":WEND
CLS
PRINT "Sollen diese Einstellungen abgespeichert werden (Filename:";
PRINT CHR$(34);Pfad$;"mConfig";CHR$(34);")"
INPUT "[J]a, [N]ein ";Jn$
Jn$=UCASE$(LEFT$(Jn$,1))
IF Jn$="J" THEN
  CLS
  PRINT "Bitte den Pfad zum MaxiDAT-Programm eingeben !"
  PRINT 
  PRINT CHR$(34);"/mConfig";CHR$(34);"wird automatisch angefügt."
  LINE INPUT "Filename = ",Dnam$
  IF RIGHT$(Dnam$,1)<>":" AND RIGHT$(Dnam$,1)<>"/" THEN
    Dnam$=Dnam$+"/mConfig"
  ELSE
    Dnam$=Dnam$+"mConfig"
  END IF
  OPEN Dnam$ FOR OUTPUT AS #1
    PRINT #1,"Voreinstellungen für MaxiDAT"
    PRINT #1,LW$
    PRINT #1,Pfad$
    PRINT #1,Drive1$
    PRINT #1,Drive2$
    FOR I=0 TO 3
      PRINT #1,R(I)
      PRINT #1,G(I)
      PRINT #1,B(I)
    NEXT I
  CLOSE #1
  PRINT 
  PRINT "Voreinstellungen sind abgespeichert."
ELSE
  CLS
  PRINT "Nichts passiert !!"
END IF

END

SUB TEST (arg) STATIC
  IF arg>1 THEN
    arg=1
  END IF
  IF arg<0 THEN
    arg=0
  END IF
END SUB

WerteAuslesen:
  IF INSTR(RGB$,"/") THEN
    strich=INSTR(RGB$,"/")
    R=VAL(RGB$)
    RGB$=MID$(RGB$,strich+1,100)
    strich=INSTR(RGB$,"/")
    G=VAL(RGB$)
    RGB$=MID$(RGB$,strich+1,100)
    B=VAL(RGB$)
  ELSE
    R=-1:G=-1:B=-1
  END IF
RETURN